home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / frantic fish_64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  9.7 KB  |  330 lines
  1. 4 poke56,60:clr
  2. 5 gosub 8000
  3. 10 poke 53280,0:poke 53281,0
  4. 20 print "[147][152] [176][192][192][192][192][192][192][192][192][192][174]   [208]ress any key to begin"
  5. 30 print " [221]         [221]"
  6. 40 print "[160][221]  [176][192][192][192][192][192][192][189]     [200]igh [211]core:";hs
  7. 50 print "[160][221]  [173][192][192][192][192][192][192][174]     [217]our [211]core:";sc
  8. 60 print "[160][221]         [221]"
  9. 70 print "[160][221]  [176][192][192][192][192][192][192][219][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][178][192][192][192][192][174]"
  10. 80 print "[160][221]  [221]      [221]     [221]     [221]     [221] [221]    [221]"
  11. 90 print "[160][221]  [221] [176][192][192][192][192][179]  [184]  [221] [176][192][174] [171][192][174] [176][192][179] [221] [176][192][192][189]"
  12. 100 print "[160][221]  [221] [221]    [221] [176][192][174] [221] [221] [221] [221] [221] [221] [221] [221] [173][192][192][174]"
  13. 110 print " [221]  [221] [221]    [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]    [221]"
  14. 120 print "[176][177][192][192][177][192][177][192][192][192][174][173][192][189] [173][192][177][192][189] [173][192][189] [173][192][189] [173][192][177][192][192][192][192][189]"
  15. 130 print "[221]         [221] [213]se [211][208][193][195][197] to raise umbrella"
  16. 140 print "[221]  [176][192][192][192][192][192][192][189]      or fend off shark"
  17. 150 print "[221]  [173][192][192][192][192][192][192][174]   [213]se < and > to move from"
  18. 160 print "[221]         [221]         left to right"
  19. 170 print "[221]  [176][192][178][192][192][192][192][219][192][174] [176][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][178][192][192][192][174]";
  20. 180 print "[221]  [221] [221] [176][192][192][179] [221] [221] [221] [176][192][192][179]    [221]    [221] [185] [221]   [221]";
  21. 190 print "[221]  [221] [221] [173][192][192][179] [173][192][189] [221] [173][192][174][221] [176][192][192][179] [221][221] [221][176][192][174][221][176][192][174][221]";
  22. 200 print "[221]  [221] [171][192][192][174] [221] [176][192][174] [221] [176][192][189][221] [221]  [221] [221][221] [221][221] [221][221][221] [221][221]";
  23. 210 print "[221]  [221] [171][192][192][189] [221] [221] [221] [221] [173][192][192][179] [221]  [221] [221][221] [221][221] [221][221][221] [221][221]";
  24. 220 print "[173][192][192][177][192][177][192][192][192][192][177][192][189] [173][192][177][192][192][192][192][177][192][189]  [173][192][177][177][192][177][189] [173][177][189] [173][189]";
  25. 230 geta$:ifa$=""then230
  26. 240 poke53281,14:poke53280,6
  27. 245 print"[147]"chr$(142)"[144]score:                   fishermen:"
  28. 250 print"             [172]    [146][187]"
  29. 260 print"            [188]         [146][162][162][162][187]     [172]  [146][187]"
  30. 270 print"    [172]    [146][187]   [188]             [146][190]  [172]       [146][187]"
  31. 280 print"  [172]       [146][187]     [188]        [146][190]   [188]       [146][190]"
  32. 290 print" [188]            [146][190]    [188]    [146][190]       [188]   [146][190]"
  33. 300 print"     [188]       [146][190]"
  34. 310 print"       [188][162][162][162][146]"
  35. 311 print"                      [169][146][179]"
  36. 312 print"                     [169] [146][179]"
  37. 313 print"                    [169]  [146][179]"
  38. 314 print"                   [169]   [146][179]"
  39. 315 print"                  [169]    [146][179]"
  40. 316 print"                 [169]     [146][179]"
  41. 317 print"                [169]      [146][179]"
  42. 318 print"                [173][177][177][177][177][177][177][179]"
  43. 319 print"              [149][223]          [146][169]"
  44. 320 print"                                       [146][144]";
  45. 330 poke2023,160:poke2023+54272,6
  46. 340 sys49152
  47. 350 print"[144]press return key"
  48. 360 geta$:ifa$<>chr$(13)then360
  49. 370 s1=peek(829):s2=peek(830):s3=peek(831)
  50. 380 sc=int(s1/16)*10+(s1and15)+int(s2/16)*1000+(s2and15)*100
  51. 390 sc=sc+int(s3/16)*100000+(s3and15)*10000
  52. 400 if sc>hs then hs=sc
  53. 410 goto10
  54. 1000 data192,000,000,224,000,000,112,000
  55. 1001 data000,056,000,000,028,000,000,014
  56. 1002 data000,000,007,000,000,003,128,000
  57. 1003 data001,128,000,000,000,000,000,000
  58. 1004 data000,000,000,000,000,000,000,000
  59. 1005 data000,000,000,000,000,000,000,000
  60. 1006 data000,000,000,000,000,000,000,000
  61. 1007 data000,000,000,000,000,000,000,000
  62. 1008 data001,128,000,003,128,000,007,000
  63. 1009 data000,014,000,000,028,000,000,056
  64. 1010 data000,000,112,000,000,224,000,000
  65. 1011 data192,000,000,000,000,000,000,000
  66. 1012 data000,000,000,000,000,000,000,000
  67. 1013 data000,000,000,000,000,000,000,000
  68. 1014 data000,000,000,000,000,000,000,000
  69. 1015 data000,000,000,000,000,000,000,053
  70. 1016 data007,000,000,063,224,000,255,248
  71. 1017 data000,002,000,000,002,000,000,002
  72. 1018 data000,000,002,000,000,002,000,000
  73. 1019 data002,000,000,018,000,000,012,000
  74. 1020 data000,000,000,000,000,000,000,000
  75. 1021 data000,000,000,000,000,000,000,000
  76. 1022 data000,000,000,000,000,000,000,000
  77. 1023 data000,000,000,000,000,000,000,000
  78. 1024 data016,000,000,056,000,000,124,000
  79. 1025 data000,254,000,000,158,000,000,206
  80. 1026 data000,000,124,000,000,000,000,000
  81. 1027 data000,000,000,000,000,000,000,000
  82. 1028 data000,000,000,000,000,000,000,000
  83. 1029 data000,000,000,000,000,000,000,000
  84. 1030 data000,000,000,000,000,000,000,000
  85. 1031 data000,000,000,000,000,000,000,000
  86. 1032 data000,000,000,000,000,000,000,000
  87. 1033 data000,000,000,000,000,000,000,000
  88. 1034 data004,000,000,012,000,000,028,000
  89. 1035 data000,060,001,007,255,195,014,127
  90. 1036 data255,031,255,255,127,255,255,056
  91. 1037 data127,255,003,255,195,000,000,001
  92. 1038 data000,000,000,000,000,000,000,000
  93. 1039 data000,000,000,000,000,000,000,183
  94. 1040 data000,000,000,000,000,000,000,000
  95. 1041 data000,000,000,000,000,000,000,000
  96. 1042 data032,000,000,048,000,000,056,000
  97. 1043 data128,060,000,195,255,224,255,254
  98. 1044 data112,255,255,248,255,255,254,255
  99. 1045 data254,028,195,255,192,128,000,000
  100. 1046 data000,000,000,000,000,000,000,000
  101. 1047 data000,000,000,000,000,000,000,183
  102. 1048 data000,000,000,000,000,000,000,000
  103. 1049 data000,000,255,000,000,255,000,003
  104. 1050 data255,192,000,085,000,000,089,000
  105. 1051 data000,085,064,000,090,000,000,085
  106. 1052 data000,000,255,000,003,255,192,003
  107. 1053 data245,080,003,255,192,003,255,192
  108. 1054 data003,255,192,000,000,000,000,000
  109. 1055 data000,000,000,000,000,000,000,000
  110. 1056 data000,000,000,000,000,000,000,000
  111. 1057 data000,000,255,000,000,255,000,003
  112. 1058 data255,192,000,085,000,000,101,000
  113. 1059 data001,085,000,000,165,000,000,085
  114. 1060 data000,000,255,000,003,255,192,005
  115. 1061 data095,192,003,255,192,003,255,192
  116. 1062 data003,255,192,000,000,000,000,000
  117. 1063 data000,000,000,000,000,000,000,000
  118. 1064 data 256
  119. 8000 print"[147][204]oading [211]prites and [205]achine [204]anguage"
  120. 8010 print"[208]lease be patient..."
  121. 9000 i=248*64
  122. 9010 read a:if a=256 then 9100
  123. 9020 poke i,a:i=i+1:ck=ck+a:goto 9010
  124. 9100 if ck<>19128 then print"[197]rror in data (lines 1000-1064)":stop
  125. 10000 i=49152:ck=0
  126. 10010 read a:if a=256 then 10100
  127. 10020 poke i,a:i=i+1:ck=ck+a:goto 10010
  128. 10100 if ck<>139243 then print"[197]rror in data (lines 49152-50346)":stop
  129. 10200 return
  130. 49152 data 169,3,141,64,3,169
  131. 49158 data 7,141,21,208,169,217
  132. 49164 data 141,1,208,169,1,141
  133. 49170 data 28,208,169,10,141,37
  134. 49176 data 208,169,7,141,38,208
  135. 49182 data 169,0,141,39,208,32
  136. 49188 data 60,193,169,25,141,60
  137. 49194 data 3,169,250,141,250,7
  138. 49200 data 169,209,141,5,208,169
  139. 49206 data 2,141,41,208,169,44
  140. 49212 data 32,238,193,32,156,195
  141. 49218 data 169,0,141,61,3,141
  142. 49224 data 62,3,141,63,3,32
  143. 49230 data 174,195,32,141,196,169
  144. 49236 data 32,141,71,3,169,0
  145. 49242 data 141,72,3,173,60,3
  146. 49248 data 141,67,3,32,4,196
  147. 49254 data 32,238,193,206,67,3
  148. 49260 data 208,245,141,4,212,32
  149. 49266 data 150,192,173,64,3,201
  150. 49272 data 0,208,226,169,0,133
  151. 49278 data 198,169,0,141,21,208
  152. 49284 data 169,0,141,4,212,169
  153. 49290 data 0,162,0,157,0,208
  154. 49296 data 232,224,17,208,248,96
  155. 49302 data 173,30,208,141,69,3
  156. 49308 data 173,65,3,201,1,240
  157. 49314 data 87,173,66,3,201,0
  158. 49320 data 240,46,173,69,3,41
  159. 49326 data 6,201,6,208,11,169
  160. 49332 data 117,32,31,195,32,179
  161. 49338 data 194,76,46,193,173,2
  162. 49344 data 208,201,225,208,3,76
  163. 49350 data 37,193,206,2,208,173
  164. 49356 data 2,208,201,255,208,5
  165. 49362 data 169,0,141,16,208,96
  166. 49368 data 173,2,208,201,115,144
  167. 49374 data 3,76,37,193,173,69
  168. 49380 data 3,41,6,201,6,208
  169. 49386 data 11,169,117,32,31,195
  170. 49392 data 32,179,194,76,46,193
  171. 49398 data 238,2,208,96,173,3
  172. 49404 data 208,201,227,144,3,76
  173. 49410 data 37,193,173,69,3,41
  174. 49416 data 6,201,6,208,11,169
  175. 49422 data 80,32,31,195,32,202
  176. 49428 data 194,76,46,193,173,69
  177. 49434 data 3,41,3,201,3,240
  178. 49440 data 4,238,3,208,96,32
  179. 49446 data 151,194,206,64,3,32
  180. 49452 data 156,195,162,30,32,106
  181. 49458 data 195,202,208,250,165,162
  182. 49464 data 201,192,144,38,169,0
  183. 49470 data 141,2,208,169,229,141
  184. 49476 data 3,208,169,253,141,249
  185. 49482 data 7,169,0,141,40,208
  186. 49488 data 141,16,208,141,65,3
  187. 49494 data 141,66,3,169,0,141
  188. 49500 data 27,208,173,30,208,96
  189. 49506 data 201,128,144,44,169,80
  190. 49512 data 141,2,208,169,229,141
  191. 49518 data 3,208,169,252,141,249
  192. 49524 data 7,169,0,141,40,208
  193. 49530 data 169,2,141,16,208,169
  194. 49536 data 0,141,65,3,169,1
  195. 49542 data 141,66,3,169,0,141
  196. 49548 data 27,208,173,30,208,96
  197. 49554 data 201,64,144,44,169,139
  198. 49560 data 141,2,208,169,100,141
  199. 49566 data 3,208,169,251,141,249
  200. 49572 data 7,169,6,141,40,208
  201. 49578 data 169,0,141,16,208,169
  202. 49584 data 1,141,65,3,169,0
  203. 49590 data 141,66,3,169,2,141
  204. 49596 data 27,208,173,30,208,96
  205. 49602 data 169,218,141,2,208,169
  206. 49608 data 100,141,3,208,169,251
  207. 49614 data 141,249,7,169,6,141
  208. 49620 data 40,208,169,0,141,16
  209. 49626 data 208,169,1,141,65,3
  210. 49632 data 169,1,141,66,3,169
  211. 49638 data 2,141,27,208,173,30
  212. 49644 data 208,96,201,44,208,17
  213. 49650 data 169,132,141,0,208,169
  214. 49656 data 255,141,248,7,32,227
  215. 49662 data 194,32,112,195,96,201
  216. 49668 data 46,208,17,169,212,141
  217. 49674 data 0,208,169,254,141,248
  218. 49680 data 7,32,227,194,32,112
  219. 49686 data 195,96,201,32,208,113
  220. 49692 data 173,68,3,201,0,208
  221. 49698 data 115,173,70,3,201,0
  222. 49704 data 208,108,173,65,3,201
  223. 49710 data 0,240,38,169,2,141
  224. 49716 data 41,208,169,209,141,5
  225. 49722 data 208,169,250,141,250,7
  226. 49728 data 173,0,208,201,132,208
  227. 49734 data 8,169,138,141,4,208
  228. 49740 data 76,132,194,169,218,141
  229. 49746 data 4,208,76,132,194,169
  230. 49752 data 0,141,41,208,173,0
  231. 49758 data 208,201,132,208,18,169
  232. 49764 data 127,141,4,208,169,230
  233. 49770 data 141,5,208,169,249,141
  234. 49776 data 250,7,76,132,194,169
  235. 49782 data 232,141,4,208,169,230
  236. 49788 data 141,5,208,169,248,141
  237. 49794 data 250,7,32,1,195,169
  238. 49800 data 200,141,68,3,96,201
  239. 49806 data 95,208,5,169,0,141
  240. 49812 data 64,3,96,32,141,196
  241. 49818 data 169,33,141,4,212,162
  242. 49824 data 255,142,1,212,142,37
  243. 49830 data 208,32,106,195,202,208
  244. 49836 data 244,169,10,141,37,208
  245. 49842 data 96,32,141,196,169,129
  246. 49848 data 141,4,212,162,255,142
  247. 49854 data 1,212,142,40,208,32
  248. 49860 data 106,195,202,208,244,96
  249. 49866 data 32,141,196,169,129,141
  250. 49872 data 4,212,162,0,142,1
  251. 49878 data 212,142,40,208,32,106
  252. 49884 data 195,232,224,50,208,242
  253. 49890 data 96,169,33,141,4,212
  254. 49896 data 162,15,142,1,212,32
  255. 49902 data 106,195,32,106,195,202
  256. 49908 data 224,5,208,242,169,0
  257. 49914 data 141,4,212,32,106,195
  258. 49920 data 96,169,33,141,4,212
  259. 49926 data 162,5,142,1,212,32
  260. 49932 data 106,195,32,106,195,232
  261. 49938 data 224,20,208,242,169,0
  262. 49944 data 141,4,212,32,106,195
  263. 49950 data 96,248,24,109,61,3
  264. 49956 data 141,61,3,169,0,109
  265. 49962 data 62,3,141,62,3,169
  266. 49968 data 0,109,63,3,141,63
  267. 49974 data 3,216,32,174,195,56
  268. 49980 data 173,62,3,237,71,3
  269. 49986 data 141,69,3,173,63,3
  270. 49992 data 237,72,3,13,69,3
  271. 49998 data 144,25,169,32,248,24
  272. 50004 data 109,71,3,141,71,3
  273. 50010 data 169,0,109,72,3,141
  274. 50016 data 72,3,216,238,64,3
  275. 50022 data 32,156,195,96,160,0
  276. 50028 data 200,208,253,96,169,0
  277. 50034 data 141,41,208,173,0,208
  278. 50040 data 201,132,208,16,169,248
  279. 50046 data 141,250,7,169,127,141
  280. 50052 data 4,208,169,222,141,5
  281. 50058 data 208,96,169,249,141,250
  282. 50064 data 7,169,232,141,4,208
  283. 50070 data 169,222,141,5,208,96
  284. 50076 data 162,0,160,35,24,32
  285. 50082 data 240,255,173,64,3,24
  286. 50088 data 105,48,32,210,255,96
  287. 50094 data 162,0,160,6,32,240
  288. 50100 data 255,173,63,3,41,240
  289. 50106 data 74,74,74,74,24,105
  290. 50112 data 48,32,210,255,173,63
  291. 50118 data 3,41,15,24,105,48
  292. 50124 data 32,210,255,173,62,3
  293. 50130 data 41,240,74,74,74,74
  294. 50136 data 24,105,48,32,210,255
  295. 50142 data 173,62,3,41,15,24
  296. 50148 data 105,48,32,210,255,173
  297. 50154 data 61,3,41,240,74,74
  298. 50160 data 74,74,24,105,48,32
  299. 50166 data 210,255,173,61,3,41
  300. 50172 data 15,24,105,48,32,210
  301. 50178 data 255,96,32,16,196,72
  302. 50184 data 32,71,196,32,125,196
  303. 50190 data 104,96,32,228,255,201
  304. 50196 data 0,208,3,76,70,196
  305. 50202 data 201,133,208,7,169,25
  306. 50208 data 141,60,3,169,133,201
  307. 50214 data 134,208,7,169,18,141
  308. 50220 data 60,3,169,134,201,135
  309. 50226 data 208,7,169,13,141,60
  310. 50232 data 3,169,135,201,136,208
  311. 50238 data 7,169,9,141,60,3
  312. 50244 data 169,136,96,173,68,3
  313. 50250 data 240,5,206,68,3,240
  314. 50256 data 21,173,70,3,201,0
  315. 50262 data 240,3,206,70,3,162
  316. 50268 data 90,202,208,253,169,0
  317. 50274 data 141,4,212,96,173,4
  318. 50280 data 208,201,0,240,5,169
  319. 50286 data 0,141,4,208,32,112
  320. 50292 data 195,169,255,141,70,3
  321. 50298 data 76,81,196,173,141,2
  322. 50304 data 41,1,201,1,208,6
  323. 50310 data 32,16,196,76,125,196
  324. 50316 data 96,162,0,169,0,157
  325. 50322 data 0,212,232,224,25,208
  326. 50328 data 248,169,15,141,24,212
  327. 50334 data 169,16,141,5,212,169
  328. 50340 data 240,141,6,212,169,100
  329. 50346 data 141,0,212,96,256
  330.